﻿Namespace dnnWerk.Providers.RadEditorProvider
    Partial Public Class ImageTester
        Inherits System.Web.UI.Page

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

            Dim strResult As String = "NOTFOUND"

            Dim strFile As String = Request.QueryString("file")
            If Not strFile Is Nothing Then
                Dim path As String = strFile.Replace("http://", "")
                path = path.Substring(path.IndexOf("/"))
                strFile = Server.MapPath(path)
                If System.IO.File.Exists(strFile) Then
                    strResult = "OK"
                End If
            End If

            Response.Write(strResult)
            Response.Flush()

        End Sub

    End Class
End Namespace
